;solution for euler 89



(defun evaluate-numeral (numeral)
	(let (curval 1)
		(dotimes (i (length numeral))